How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/eindex.dir/00705_Script_705

Text File | 1995-09-06 | 2KB | 97 lines

--òò StartMovie Handlers
--** July 15 95 2 P.M.
--** Needs to have functions added to reference link cast members

Global gBtn17,gBtn18,gWhatMovie,gTheHelpIsOn,┬
             gReInitGlobals, gIndexManager

on StartMovie
  set gBtn17 = birth(script "a3StateButton", 47, 1925, "SE141819.AIF", "CrossAIndex", "HandCursor")
  set gBtn18 = birth(script "a3StateButton", 48, 1928, "SE141819.AIF", "CrossVIndex", "HandCursor")
  set gWhatMovie = "EgyptW"
  if gReInitGlobals = 1 then
    EGlobalSetUpFromTheatre
    set gReInitGlobals = 0
  end if
  EGlobalsSetUpIndex
  set gTheHelpIsOn = 0
  initializeIndex
  set the cursor of sprite 3 = [1904 , 1905]
  set spriteCount = 3
  repeat while (spriteCount < 29)
    set the cursor of sprite spriteCount = [1904 , 1905]
    set spriteCount = spriteCount + 1
  end repeat
  set the cursor of sprite 40 = [1904 , 1905]
end

on StopMovie
  hidecontrol (gBtn17)
  hidecontrol (gBtn18)
  set gBtn17 = 0
  set gBtn18 = 0
  unload 1, 360
  disposeIndexSystem
  set spriteCount = 3
  repeat while (spriteCount < 29)
    set the cursor of sprite spriteCount = -1
    set spriteCount = spriteCount + 1
  end repeat
  set the cursor of sprite 40 = -1
end

on resetIndex
  resetIndex (gIndexManager)
end


--òòInitialize Index System Code
on initializeIndex
  --òò use sprite 2 to hold sub menu
  puppetSprite 2,TRUE
  --òò use sprite 40 to hold sub memu icon art
  puppetSprite 40,TRUE
  set gIndexManager = birth ( script "aIndexManager")
  initIndex(gIndexManager)
end

--òòDispose of objects
on disposeIndexSystem
  puppetSprite 2, FALSE
  puppetSprite 40,FALSE
  set gIndexManager = 0
end

--òòUser input interface handlers : Track mouse movement and clicks
on rolloverIndex
  testIndexRollover(gIndexManager)
end

on clickAlpha
  clickAlpha(gIndexManager)
end

on clickTopic
  clickTopic(gIndexManager)
end

on clickRefLink
  set horzPos = the mouseH
  set vertPos = the mouseV
  clickRefLink(gIndexManager ,horzPos,vertPos)
end


on doBeep
  --beep 3
  --put "gotFunctionString"
end

on setTEXT startC,stopC
  repeat while (startC <= stopC)
    put startC
    set the scriptText of cast startC = "--0,0,0,0,doBeep;%"
    set startC = startC + 1
  end repeat
end